home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / shared.dir / 00213.ls < prev    next >
Encoding:
Text File  |  1996-03-20  |  560 b   |  19 lines
  1. on spriteMover
  2.   set tempsprite to the clickOn
  3.   set tempcast to the castNum of sprite tempsprite
  4.   updateStage()
  5.   set x to the regPoint of cast tempcast
  6.   set z to word 2 of string(x)
  7.   set vertV to integer(z)
  8.   set z to word 1 of string(x)
  9.   set var to EMPTY
  10.   put char 7 of string(z) after var
  11.   put char 8 of string(z) after var
  12.   put char 9 of string(z) after var
  13.   set horzV to integer(var)
  14.   set the regPoint of cast tempcast to point(horzV - 2, vertV - 2)
  15.   updateStage()
  16.   set the regPoint of cast tempcast to point(horzV, vertV)
  17.   updateStage()
  18. end
  19.